home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)s3.d64 / sound_phase.1.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  84 lines
  1. 10 POKE 53281,0:PRINT""CHR$(14)
  2. 20 PRINT "[147]     [195][207][205][205][207][196][207][210][197] 64 MUSIC SYNTHESIZER"
  3. 30 PRINT "      FEATURING => PHASE SHIFTING"
  4. 100 PRINT"          [221]    [221]   [221]   "
  5. 110 PRINT"          [221]    [221]   [221]   "
  6. 120 PRINT"        [146]2 [146]3 [221] [146]5 [146]6 [146]7 [221] [146]9 [146]0 [221] [146]- [146]\ "
  7. 130 PRINT"        [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] "
  8. 140 PRINT"       [209][221][215][221][197][221][210][221][212][221][217][221][213][221][201][221][207][221][208][221]@[221]*[221]^"
  9. 150 PRINT"[211][208][193][195][197]        SELECT SOLO OR POLYPHONIC"
  10. 160 PRINT"[198]1,[198]3,[198]5,[198]7  SELECT OCTAVE
  11. 170 [153]"ASC2,ASC4,ASC6,ASC8  SELECT WAVEFORM"
  12. 175 [153]"(null)            PLAY SONG"
  13. 177 [153]"LEN(null)(null)WAIT/LEFT$(null)(null)VAL     TURN SOUND OFF"
  14. 178 [153]"LEN(null)(null)/LEFT$(null)(null)VALWAIT     TURN SOUND ON"
  15. 179 [153]" (PHASE SHIFTING ONLY WORKS ON VOICE 3)"
  16. 180 [153]"HANG ON, SETTING UP FREQUENCY TABLE..."
  17. 190 S[178]13[172]4096[170]1024:[134]F(26):[134]K(255)
  18. 200 [129]I[178]0[164]28:[151]S[170]I,0:[130]
  19. 210 F1[178]7040:[129]I[178]1[164]26:F(27[171]I)[178]F1[172]5.8[170]30:F1[178]F1[173]2[174](1[173]12):[130]
  20. 220 K$[178]"Q2W3ER5T6Y7UI9O0P@-*\^"
  21. 230 [129]I[178]1[164][195](K$):K([198]([202](K$,I)))[178]I:[130]
  22. 240 [153]"ON                                      "
  23. 250 AT[178]0:DE[178]0:SU[178]15:RE[178]0:SR[178]SU[172]16[170]RE:AD[178]AT[172]16[170]DE:WV[178]64:W[178]2:M[178]4:OC[178]2:HB[178]256:Z[178]0
  24. 260 [129]I[178]0[164]2:T[178]I[172]7:[151]S[170]5[170]T,AD:[151]S[170]6[170]T,SR
  25. 270 [151]S[170]2[170]T,4000[175]255:[151]S[170]3[170]T,4000[173]256:[130]
  26. 280 [151]S[170]24,13
  27. 300 [161]A$:[139]A$[179][177]""[167]310
  28. 305 PS[178]2048[171]2000[172][191](PH):PH[178]PH[170].05:[151]S[170]3,PS[173]256:[151]S[170]2,PS[175]255:[137]300
  29. 310 FR[178]K([198](A$)):[139]FR[178]Z[167]500
  30. 315 FR[178]F(FR)[173]M:CR[178]S[170]4
  31. 320 [151]S[170]5,Z:[151]S[170]6,Z
  32. 330 [151]CR,8:[151]CR,Z
  33. 340 [151]S,FR[171]HB[172][181](FR[173]HB)
  34. 350 [151]S[170]1,FR[173]HB
  35. 360 [151]S[170]5,AD:[151]S[170]6,SR
  36. 370 [151]CR,WV
  37. 375 [151]CR,WV[170]1
  38. 400 [137]300
  39. 500 [139]A$[178]"INPUT"[167]M[178]1:OC[178]4:[137]300
  40. 510 [139]A$[178]"DIM"[167]M[178]2:OC[178]3:[137]300
  41. 520 [139]A$[178]"READ"[167]M[178]4:OC[178]2:[137]300
  42. 530 [139]A$[178]"LET"[167]M[178]8:OC[178]1:[137]300
  43. 540 [139]A$[178]"GOTO"[167]W[178]0:WV[178]16:[137]300
  44. 550 [139]A$[178]"RUN"[167]W[178]1:WV[178]32:[137]300
  45. 560 [139]A$[178]"IF"[167]W[178]2:WV[178]64:[137]300
  46. 570 [139]A$[178]"RESTORE"[167]W[178]3:WV[178]128:[137]300
  47. 580 [139]A$[178]" "[167]P[178]1[171]P:[137]300
  48. 585 [139]A$[178]"X"[167]10000
  49. 586 [139]A$[178]"."[167]MO[178]MO[170]5:[137]300
  50. 587 [139]A$[178]","[175]MO[167]MO[178]MO[171]5:[137]300
  51. 590 [139]A$[178]"LOAD"[167]200
  52. 600 [137]300
  53. 800 [153]"HIT A KEY"
  54. 810 [161]A$:[139]A$[178]""[167]810:[146] [129] A KEY
  55. 820 [153]A$:[142]
  56. 9000 [131]5,17,15,17,13,17,12,17,10,17,8,17,6,17,15,13,15,15,13,15,12
  57. 9005 [131]15,10,15,8,15,6,15,5,15,13,12,13,13,12,13,10,13,8,13,6,13,5,13,4,13
  58. 9006 [131]12,10,12,12
  59. 9010 [131]10,12,9,12,7,12,5,12,3,12,1,12
  60. 9020 [131]10,8,10,0
  61. 9600 [131]20,12,8,10,12,15,13,13,17,15,15,20
  62. 9610 [131]19,20,15,12,8,10,12,13,15,17,15,13,12,10,12,8,7,8,10,3
  63. 9620 [131]7,10,13,12,10
  64. 9630 [131]12,8,10,12,15,13,13,17,15,15,20
  65. 9640 [131]19,20,15,12,8,10,12
  66. 9650 [131]5,15,13,12,10,8,3,8,7,8,12,15,20,15,12,8
  67. 9660 [131]12,15,18,15,12,8,12,15,17,13,10
  68. 9670 [131]7,10,13,15,12,8,5,8,12,13,10,7,3,7,10,13,12,10
  69. 9680 [131]8,12,15,20,0
  70. 9999 [131]-1,-1
  71. 10000 [135]TE
  72. 10005 [135]A:[139]A[178]Z[167]300
  73. 10007 PS[178]2048[171]2000[172][191](PH):PH[178]PH[170].05:[151]S[170]3,PS[173]256:[151]S[170]2,PS[175]255
  74. 10010 [139]A[178][171]1[167][140]:[137]10000
  75. 10015 FR[178]F(A)[173]M:T[178]V[172]7:CR[178]S[170]T[170]4
  76. 10020 [151]S[170]5[170]T,Z:[151]S[170]6[170]T,Z
  77. 10030 [151]CR,8:[151]CR,Z
  78. 10040 [151]S[170]T,FR[171]HB[172][181](FR[173]HB)
  79. 10050 [151]S[170]1[170]T,FR[173]HB
  80. 10060 [151]S[170]5[170]T,AD:[151]S[170]6[170]T,SR
  81. 10070 [151]CR,WV:[129]I[178]1[164]50[172]AT:[130]
  82. 10075 [151]CR,WV[170]1
  83. 10100 [137]10005
  84.